home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -readerstuff- / pete_sullivan / installme1st / rexx / vitaloff.vcrx < prev    next >
Text File  |  1999-04-21  |  1KB  |  60 lines
  1. /* Disconnect Peter Sullivan 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5. window='YES'  /* Delete  this line to remove window */
  6.  
  7.  
  8.     IF SHOW('Ports','MIAMI.1') THEN DO
  9.       ADDRESS 'MIAMI.1' 
  10.       'ISONLINE'
  11.       result=rc
  12.       IF result=0 THEN DO
  13.         ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/cds')
  14.         call writeln 'VitalConnect-Offline','Vital Connect is'
  15.         call writeln 'VitalConnect-Offline','ALREADY OFFLINE!!'
  16.         ADDRESS "COMMAND" "wait 3"
  17.       END 
  18.       'ISONLINE'
  19.       result=rc
  20.       IF result=1 THEN DO
  21.         'OFFLINE'
  22.         IF window='YES' THEN CALL WINDOW
  23.       END
  24.  
  25.     END
  26.  
  27.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  28.         ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/cds')
  29.         call writeln 'VitalConnect-Offline','Vital Connect is'
  30.         call writeln 'VitalConnect-Offline','not running!!'
  31.         ADDRESS "COMMAND" "wait 3"
  32.     END
  33.  
  34.  
  35. EXIT    
  36.  
  37.  
  38. WINDOW:
  39.             ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/')
  40.             a=1
  41.             cleft='08'x
  42.             call writeln 'VitalConnect-Offline','     WAIT!'
  43.             call writeln 'VitalConnect-Offline','Vital Connect is'
  44.             call writech 'VitalConnect-Offline',' Disconnecting'
  45.             ADDRESS "COMMAND" "wait 3"
  46.             DO FOREVER
  47.                 IF ~SHOW('Ports','MIAMI.1') THEN exit
  48.                 ADDRESS 'MIAMI.1' 'ISONLINE'
  49.                 result=rc
  50.                 IF ~result then exit
  51.                 call writech 'VitalConnect-Offline',cleft
  52.                 a=a+1
  53.                 ADDRESS "COMMAND" "wait 3"
  54.                 If a=14 then Do
  55.                     a=1
  56.                     call writech 'VitalConnect-Offline','Connecting'
  57.                 END
  58.  
  59.             END
  60. RETURN